program Project1; //Zadanie 4.5

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  n = 10;

type
  macierz = array[1..n, 1..n] of integer;

var
  i, j, suma : integer;
  tablica : macierz;

begin
{wpisywanie do tablicy}
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          if n = i + j - 1 then
            tablica[i,j]:=1
          else
          tablica[i,j]:=0;
        end; {j}
    end;   {i}   {Koniec wpisywania}

{Wydruk zawartosci tablicy}
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          Write(tablica[i,j],' ');
        end; {j}
       writeln;
    end;   {i}
  {Koniec wydruku tablicy}

 {Obliczanie sumy wyroznionych elementow}
 suma:=0;
 Writeln;

 for i:=1 to n do
   suma:=suma+tablica[i,n-i+1];

 Writeln('Suma wyroznionych w zadaniu elementow wynosi ',suma, '.');

  Readln; //czeka na nacisniecie klawisza Enter
end.

